home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / BASICWNT.ZIP / INPUT.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-02-11  |  2.1 KB  |  56 lines
  1. 0 rem *
  2. 1 rem *
  3. 2 rem *INPUT_TEST_FOR_NITROUSBASIC
  4. 3 rem *
  5. 4 rem *
  6. 10 cls 
  7. 15 gosub 500 :rem INIT_GLOBAL_VARS
  8. 20 gosub 1000 :rem DISPLAY_FORM
  9. 30 gosub 5000 :rem INPUT_DATA
  10. 40 gosub 10000 :rem DISPLAY_RESULT
  11. 50 gosub 20000 :rem SAVE_DATA_TO_FILE
  12. 100 end 
  13. 500 FIRST$="First Name" :MIDDLE$="Middle Initial" :LAST$="Last Name" 
  14. 510 STREET$="Street" :CITY$="City" :ZIP$="Zip code" :PHONE$="Phone" 
  15. 515 STATE$="State" 
  16. 520 return 
  17. 1000 rem **********
  18. 1010 rem **********
  19. 1011 rem ******DISPLAY_FORM**********
  20. 1020 cursor (1 ,1 ):print FIRST$:cursor (30 ,1 ):print MIDDLE$
  21. 1040 cursor (50 ,1 ):print LAST$:cursor (1 ,2 ):print STREET$
  22. 1060 cursor (30 ,2 ):print CITY$:cursor (50 ,2 ):print STATE$
  23. 1080 cursor (1 ,3 ):print ZIP$:cursor (30 ,3 ):print PHONE$
  24. 2000 return 
  25. 5000 rem **********
  26. 5010 rem **********
  27. 5011 rem ******INPUT_FORM_DATA***********
  28. 5020 cursor (1 +len (FIRST$),1 ):input ":" ,FIRST$
  29. 5030 cursor (30 +len (MIDDLE$),1 ):input ":" ,MIDDLE$
  30. 5040 cursor (50 +len (LAST$),1 ):input ":" ,LAST$
  31. 5050 cursor (1 +len (STREET$),2 ):input ":" ,STREET$
  32. 5060 cursor (30 +len (CITY$),2 ):input ":" ,CITY$
  33. 5070 cursor (50 +len (STATE$),2 ):input ":" ,STATE$
  34. 5080 cursor (1 +len (ZIP$),3 ):input ":" ,ZIP$
  35. 5090 cursor (30 +len (PHONE$),3 ):input ":" ,PHONE$
  36. 5200 return 
  37. 10000 rem **********
  38. 10010 rem **********
  39. 10020 rem **********DISPLAY_RESULTS*********
  40. 10030 cursor (1 ,5 ):print 
  41. 10040 print "Full name       : " ;FIRST$;" " ;MIDDLE$;" " ;LAST$
  42. 10050 print "Address         : " ;STREET$
  43. 10060 print "City/State/Zip  : " ;CITY$;" " ;STATE$;" " ;ZIP$
  44. 10070 print "Phone Number    : " ;PHONE$
  45. 10100 return 
  46. 20000 rem **********
  47. 20010 rem **********
  48. 20020 rem **********SAVE_RESULTS_TO_FILE*********
  49. 20025 print :print "Saving data to file: DATA.TXT" :print 
  50. 20030 open "data.txt" for output as #1 
  51. 20040 print #1 ,"Full name       : " ;FIRST$;" " ;MIDDLE$;" " ;LAST$
  52. 20050 print #1 ,"Address         : " ;STREET$
  53. 20060 print #1 ,"City/State/Zip  : " ;CITY$;" " ;STATE$;" " ;ZIP$
  54. 20070 print #1 ,"Phone Number    : " ;PHONE$
  55. 20080 print #1 :close #1 :return 
  56.